home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg2
/
g52.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
388b
|
16 lines
100 ' G52 T.WAKAMATSU
110 CLS:PI=3.14159!
120 C(1)=5:C(2)=4:C(3)=0:C1(1)=3:C1(2)=6:C1(3)=0
130 PSET(320,479)
140 FOR L=1 TO 3
150 C=C(L):K=C1(L)
160 FOR T=0 TO PI*2 STEP PI/96
170 X=SIN(65*T)*239+320
180 Y=COS(65*T)*239+240
190 LINE -(X,Y),PSET,%K
200 X=SIN(65*T)*150+320
210 Y=COS(65*T)*150+240
220 LINE -(X,Y),PSET,%C
230 NEXT T
240 NEXT L